<%
Dim surveyName
surveyName = "" & Request.QueryString("surveyName")

Response.Expires = -1
'Response.ContentType = "application/msexcel"
'Response.AddHeader "Content-Disposition", "attachment; filename=" & surveyName & "_EXPORT.xls"

Dim objCATI 
Set objCATI = Server.CreateObject("oxWebCATICom.CATIExport")
Dim strReport
objCATI.ExcelExport(CStr(surveyName))

Response.Redirect "/OxWebCATI/surveyData/" & surveyName & "/" & surveyName & "_EXPORT.xls"


%>